home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Mode Examples / Calculator-Example.tcl < prev    next >
Encoding:
Text File  |  2000-10-30  |  809 b   |  28 lines
  1. ## -*-Tcl-*-
  2.  # ==========================================================================
  3.  #  Mode Examples - a Help package for Alpha
  4.  # 
  5.  #  FILE: "Calculator-Example.tcl"
  6.  #                                    created: 10/17/00 {02:18:43 pm} 
  7.  #                                last update: 10/17/00 {03:54:14 pm} 
  8.  #  Description: 
  9.  #  
  10.  #  Script for the "Calculator Example" in the Mode Examples package.
  11.  # 
  12.  #  Author: Craig Barton Upright
  13.  #  E-mail: <cupright@princeton.edu>
  14.  #    mail: Princeton University, Department of Sociology
  15.  #          Princeton, New Jersey 08544
  16.  #     www: <http://www.princeton.edu/~cupright>
  17.  #  
  18.  # ==========================================================================
  19.  ##
  20.  
  21. calculator
  22. insertText "1\r1"
  23. binop +
  24. insertText "\r1\r1"
  25. binop +
  26. insertText "4.2"
  27. binop *
  28.